#!/home/cclien/basicweb/bin/basicweb

10 REM *** Preparing HTML headers ***
20 PRINT "<HTML><HEAD><TITLE>Hello Web!</TITLE></HEAD>"
30 PRINT "<BODY><H1>Hello Web!</H1>"
40 REM *** Check if the name has been inputed ***
50 LET NAME$ = CGI$("name")
60 IF LEN(NAME$) > 0 THEN 140
70 REM *** Show the input form
80 PRINT "<FORM ACTION=""hello.bas"" METHOD=""GET"">" 
90 PRINT "What's your name? <INPUT TYPE=""text"" NAME=""name""/><br/>"
100 PRINT "<INPUT TYPE=""SUBMIT"" VALUE=""SUBMIT"">"
110 PRINT "</FORM>"
120 GOTO 160
130 REM *** Print out the name
140 PRINT "Hello! ";
150 PRINT NAME$
160 PRINT "</BODY></HTML>"

